home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok14 / timersupport / timersupport.def next >
Text File  |  1993-11-04  |  2KB  |  59 lines
  1. (*********************************************************************
  2.  *
  3.  *  :Program.    TimerSupport.def
  4.  *  :Author.     Hartmut Höhn
  5.  *  :Address.    Friedenstraße 1
  6.  *  :Address.    6255 Dornburg 5
  7.  *  :shortcut.   []
  8.  *  :Version.    1.0
  9.  *  :Date.       27.12.88
  10.  *  :Copyright.  PD
  11.  *  :Language.   Modula-II
  12.  *  :Translator. M2Amiga
  13.  *  :Contents.   PROCEDUREs zum Timerhandling
  14.  *  :UpDate.     -
  15.  *
  16.  *********************************************************************)
  17.  
  18. DEFINITION MODULE TimerSupport;
  19.  
  20. FROM Timer  IMPORT TimeVal;
  21.  
  22. PROCEDURE OpenTimer(mode : BOOLEAN);
  23.  (* Öffnet Timer-Device *)
  24.  
  25. PROCEDURE CloseTimer;
  26.  (* Schließt Timer-Device *)
  27.  
  28. PROCEDURE TimerWait(Sek,micr : LONGINT);
  29.  (* Wartet angegebene Sekunden (Sek)  + 
  30.      angegebene Microsekunden *)
  31.  
  32.  
  33. PROCEDURE GetTimeLong(VAR Sek,micr : LONGINT);
  34.  (* Liest die Systemzeit und gibt sie als Sekunden 
  35.       und Microsekunden zurück *)
  36.  
  37.  
  38. PROCEDURE GetTime(VAR Jahr,Monat,Tag,Stunde,Minute,Sekunde : LONGINT);
  39.  (* Liest die Systemzeit und gibt sie als
  40.      Jahr,Monat,Tag,Stunde,Minute,Sekunde zurück *)
  41.  
  42. PROCEDURE SetTimeLong(Sek,micr : LONGINT);
  43.   (* Setzt die Systemzeit mit angegebenen
  44.      Sekunden + Microsekunden *)
  45.  
  46. PROCEDURE SetTime(Jahr,Monat,Tag,Stunde,Minute,Sekunde : LONGINT);
  47.   (* Setzt die Systemzeit mit angegebenen
  48.       Jahr,Monat,Tag,Stunde,Minute,Sekunde *)
  49.  
  50. (* Proceduren, die bei mir leider nicht funktionieren !! *)
  51.  
  52. PROCEDURE SubTime(VAR t1,t2 : TimeVal);
  53.  
  54. PROCEDURE AddTime(VAR t1,t2 : TimeVal);
  55.  
  56. PROCEDURE CmpTime(VAR t1,t2 : TimeVal) : INTEGER;
  57.  
  58. END TimerSupport.
  59.